Begin A1_DAT_SRT_RestoreFTG_IDS

Short DAT_SRTIC
Short DAT_SRTFIN

If ( OnActivate == 1 )
	Set DAT_SRTFIN to 2
EndIf

If ( DAT_SRTFIN < 2 )
	Return
EndIf

If ( Player->GetAlchemy >= 5 )
	Set DAT_SRTIC to (  "A1_DAT_SRT_SortBag"->GetItemCount, "ingred_crab_meat_01" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "ingred_crab_meat_01", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "ingred_crab_meat_01", 1
	EndWhile
EndIf

If ( Player->GetAlchemy >= 15 )
	Set DAT_SRTIC to ( "A1_DAT_SRT_SortBag"->GetItemCount, "ingred_hound_meat_01" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "ingred_hound_meat_01", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "ingred_hound_meat_01", 1
	EndWhile
EndIf

If ( Player->GetAlchemy >= 5 )
	Set DAT_SRTIC to (  "A1_DAT_SRT_SortBag"->GetItemCount, "ingred_bread_01" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "ingred_bread_01", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "ingred_bread_01", 1
	EndWhile
EndIf

If ( Player->GetAlchemy >= 15 )
	Set DAT_SRTIC to ( "A1_DAT_SRT_SortBag"->GetItemCount, "ingred_hackle-lo_leaf_01" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "ingred_hackle-lo_leaf_01", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "ingred_hackle-lo_leaf_01", 1
	EndWhile
EndIf

If ( Player->GetAlchemy >= 5 )
	Set DAT_SRTIC to (  "A1_DAT_SRT_SortBag"->GetItemCount, "food_kwama_egg_01" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "food_kwama_egg_01", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "food_kwama_egg_01", 1
	EndWhile
EndIf

If ( Player->GetAlchemy >= 15 )
	Set DAT_SRTIC to ( "A1_DAT_SRT_SortBag"->GetItemCount, "food_kwama_egg_02" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "food_kwama_egg_02", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "food_kwama_egg_02", 1
	EndWhile
EndIf

If ( Player->GetAlchemy >= 15 )
	Set DAT_SRTIC to ( "A1_DAT_SRT_SortBag"->GetItemCount, "ingred_saltrice_01" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "ingred_saltrice_01", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "ingred_saltrice_01", 1
	EndWhile
EndIf

If ( Player->GetAlchemy >= 15 )
	Set DAT_SRTIC to (  "A1_DAT_SRT_SortBag"->GetItemCount, "ingred_scrib_jerky_01" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "ingred_scrib_jerky_01", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "ingred_scrib_jerky_01", 1
	EndWhile
EndIf

If ( Player->GetAlchemy >= 15 )
	Set DAT_SRTIC to ( "A1_DAT_SRT_SortBag"->GetItemCount, "ingred_scuttle_01" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "ingred_scuttle_01", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "ingred_scuttle_01", 1
	EndWhile
EndIf

If ( Player->GetAlchemy >= 5 )
	Set DAT_SRTIC to ( "A1_DAT_SRT_SortBag"->GetItemCount, "ingred_chokeweed_01" )
Else
	Set DAT_SRTIC to 0
EndIf

If ( DAT_SRTIC > 0 )
	While ( DAT_SRTIC > 0 )
		Set DAT_SRTIC to ( DAT_SRTIC - 1 )
		Player->AddItem, "ingred_chokeweed_01", 1
		 "A1_DAT_SRT_SortBag"->RemoveItem, "ingred_chokeweed_01", 1
	EndWhile
EndIf

PlaySound "Item Misc Up"

MessageBox "You take what ingredients you determine can be used to create a potion of Restore Fatigue from the bag.",

Set DAT_SRTFIN to 1

End